home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
mathfl
/
mf_main.frm
< prev
next >
Wrap
Text File
|
1995-12-05
|
17KB
|
619 lines
VERSION 2.00
Begin Form Main
Caption = "MathFlash"
ClientHeight = 5205
ClientLeft = 450
ClientTop = 1680
ClientWidth = 8490
Height = 5895
Icon = MF_MAIN.FRX:0000
Left = 390
LinkMode = 1 'Source
LinkTopic = "Form1"
ScaleHeight = 5205
ScaleWidth = 8490
Top = 1050
Width = 8610
Begin TextBox rnd1_objects
BackColor = &H00FF0000&
Height = 285
Index = 0
Left = 5760
TabIndex = 18
Text = " "
Top = 1800
Width = 255
End
Begin TextBox Text3
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 735
Left = 3720
TabIndex = 1
Text = "Text3"
Top = 960
Width = 1215
End
Begin TextBox Text2
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 735
Left = 1080
TabIndex = 0
Text = "Text2"
Top = 960
Width = 1215
End
Begin PictureBox Picture1
Height = 495
Left = 7560
Picture = MF_MAIN.FRX:0302
ScaleHeight = 465
ScaleWidth = 465
TabIndex = 17
Top = 240
Width = 495
End
Begin TextBox reward
BackColor = &H00C000C0&
ForeColor = &H00FF0000&
Height = 405
Index = 0
Left = 7560
TabIndex = 16
Text = " "
Top = 2880
Width = 495
End
Begin TextBox rnd3_objects
BackColor = &H0000C000&
ForeColor = &H0000C000&
Height = 285
Index = 0
Left = 3600
TabIndex = 14
Text = " "
Top = 1800
Width = 255
End
Begin TextBox rnd2_objects
BackColor = &H000000C0&
ForeColor = &H000000FF&
Height = 285
Index = 0
Left = 960
TabIndex = 13
Text = " "
Top = 1800
Width = 255
End
Begin CommandButton quit
Caption = "QUIT"
Height = 735
Left = 6000
TabIndex = 7
Top = 3720
Width = 1335
End
Begin CommandButton Help
Caption = "HELP"
Height = 735
Left = 4560
TabIndex = 5
Top = 3720
Width = 1335
End
Begin CommandButton operation
Caption = "/"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 735
Index = 3
Left = 3120
TabIndex = 11
Top = 3720
Width = 855
End
Begin CommandButton operation
Caption = "X"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 735
Index = 2
Left = 2160
TabIndex = 10
Top = 3720
Width = 855
End
Begin CommandButton operation
Caption = "-"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 735
Index = 1
Left = 1200
TabIndex = 9
Top = 3720
Width = 855
End
Begin CommandButton operation
Caption = "+"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 735
Index = 0
Left = 240
TabIndex = 8
Top = 3720
Width = 855
End
Begin TextBox Text1
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 735
Left = 5880
TabIndex = 3
Tag = "text1"
Text = "Text1"
Top = 960
Width = 1215
End
Begin CommandButton hidden
Caption = "ACCEPT"
Default = -1 'True
Height = 375
Left = 5880
TabIndex = 6
Top = 480
Width = 1215
End
Begin Label Label1
Caption = "Bonus Bell"
Height = 255
Left = 7320
TabIndex = 19
Top = 0
Width = 975
End
Begin Label score
BackColor = &H0000FFFF&
Caption = " "
Height = 255
Left = 2760
TabIndex = 15
Top = 4800
Width = 2175
End
Begin Label correct
BackColor = &H00FFFF00&
Caption = " "
Height = 255
Left = 360
TabIndex = 12
Top = 4800
Width = 2055
End
Begin Label Label3
Caption = "="
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Left = 5280
TabIndex = 2
Top = 1080
Width = 375
End
Begin Label operand
Caption = "+"
FontBold = -1 'True
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 24
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 495
Left = 2880
TabIndex = 4
Top = 1080
Width = 375
End
Begin Menu utilityname
Caption = "Utilities"
Begin Menu limits
Caption = "&Change Limits"
End
End
Begin Menu About
Caption = "About"
End
End
Rem sound drivers
Declare Function closesound Lib "sound.drv" () As Integer
Declare Function opensound Lib "sound.drv" () As Integer
Declare Function SetVoiceSound Lib "sound.drv" (ByVal nSource%, ByVal Freq&, ByVal nDuration%) As Integer
Declare
